8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search

/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 07 CP_M / 128SCR.BIN < prev next >

Unknown | 2019-04-13 | 3.0 KB

open in:

MacOS 8.1 |

Win98 |

DOS

view JSON data |

view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	AMOS Picture Packer `(image/amosPicturePacker)`	ext	Supported
`1%`	dexvert	Debian floppy split `(archive/debianFloppySplit)`	ext	Unsupported
`1%`	dexvert	Sound Images sound sample `(audio/soundImagesSoundSample)`	ext	Unsupported
`1%`	dexvert	DESI-III drawing `(image/desiIIIDrawing)`	ext	Unsupported
`1%`	dexvert	MS-DOS PMODE extender executable `(executable/msdosPMODEExtenderExecutable)`	ext	Unsupported
`1%`	dexvert	Alien Trilogytextures `(other/alienTrilogyTextures)`	ext	Unsupported
`1%`	dexvert	APT cache data `(other/aptCacheData)`	ext	Unsupported
`1%`	dexvert	Cakewalk Groove `(other/cakewalkGroove)`	ext	Unsupported
`1%`	dexvert	Comic Book Creator Background `(other/comicBookCreatorBackground)`	ext	Unsupported
`1%`	dexvert	Comic Book Creator shape Table `(other/comicBookCreatorShapeTable)`	ext	Unsupported
`1%`	dexvert	CorelTRACE configuration `(other/corelTRACEConfiguration)`	ext	Unsupported
`1%`	dexvert	Dreamcast Disc `(other/dreamcastDisc)`	ext	Unsupported
`1%`	dexvert	EST flat binary `(other/estFlatBinary)`	ext	Unsupported
`1%`	dexvert	Finale Enigma Binary Format `(other/finaleEnigmaBinaryFormat)`	ext	Unsupported
`1%`	dexvert	Sega Genesis/Megadrive/32x ROM `(other/genesisROM)`	ext	Unsupported
`1%`	dexvert	Myth: The Fallen Lords game archive `(other/mythTheFallenLordsGameArchive)`	ext	Unsupported
`1%`	dexvert	Sega Saturn ROM `(other/segaSaturnROM)`	ext	Unsupported
`1%`	dexvert	Sound Images Sound Driver `(other/soundImagesSoundDriver)`	ext	Unsupported
`1%`	dexvert	Symantec/Norton Config `(other/symantecNortonConfig)`	ext	Unsupported
`1%`	dexvert	Vectrex ROM `(other/vectrexROM)`	ext	Unsupported
`1%`	dexvert	BIS raP encoded format `(other/bisraPEncoded)`	ext	Unsupported
`1%`	dexvert	Pascal Script binary `(other/pascalScriptBinary)`	ext	Unsupported
`1%`	dexvert	7th Level game data archive `(other/seventhLevelGameDataArchive)`	ext	Unsupported
`100%`	file	data	default
`100%`	gt2	Pascal Prozedur 'Blink'	default (weak)
`100%`	detectItEasy	Format: plain text[CR]	default (weak)

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 28 2a 0d 20 20 20 53 43 | 52 4e 4c 49 42 2e 50 41 |(*.   SC|RNLIB.PA|
|00000010| 53 0d 0d 20 20 20 54 55 | 52 42 4f 20 50 41 53 43 |S..   TU|RBO PASC|
|00000020| 41 4c 20 70 72 6f 63 65 | 64 75 72 65 73 20 66 6f |AL proce|dures fo|
|00000030| 72 20 73 70 65 63 69 61 | 6c 20 73 63 72 65 65 6e |r specia|l screen|
|00000040| 20 63 6f 6e 74 72 6f 6c | 20 6f 6e 20 74 68 65 20 | control| on the |
|00000050| 43 2d 31 32 38 2e 0d 0d | 20 20 20 44 65 6c 65 74 |C-128...|   Delet|
|00000060| 65 20 74 68 65 20 74 65 | 73 74 69 6e 67 20 6c 69 |e the te|sting li|
|00000070| 6e 65 73 20 61 74 20 74 | 68 65 20 65 6e 64 20 61 |nes at t|he end a|
|00000080| 6e 64 20 72 65 6d 6e 61 | 6d 65 20 74 68 69 73 20 |nd remna|me this |
|00000090| 53 43 52 4e 4c 49 42 2e | 49 4e 43 0d 20 20 20 73 |SCRNLIB.|INC.   s|
|000000a0| 6f 20 69 74 20 63 61 6e | 20 62 65 20 22 69 6e 63 |o it can| be "inc|
|000000b0| 6c 75 64 65 64 22 20 69 | 6e 20 79 6f 75 72 20 6f |luded" i|n your o|
|000000c0| 77 6e 20 70 72 6f 67 72 | 61 6d 73 2e 0d 0d 20 20 |wn progr|ams...  |
|000000d0| 20 4d 2e 20 54 75 63 6b | 65 72 20 42 72 61 77 6e | M. Tuck|er Brawn|
|000000e0| 65 72 2c 20 44 50 4d 20 | 20 5b 37 33 34 35 35 2c |er, DPM | [73455,|
|000000f0| 31 34 34 30 5d 0d 2a 29 | 0d 0d 50 72 6f 63 65 64 |1440].*)|..Proced|
|00000100| 75 72 65 20 42 6c 69 6e | 6b 3b 20 20 20 20 20 20 |ure Blin|k;      |
|00000110| 20 20 20 20 20 20 28 2a | 20 42 65 67 69 6e 20 62 |      (*| Begin b|
|00000120| 6c 69 6e 6b 69 6e 67 20 | 76 69 64 65 6f 20 64 69 |linking |video di|
|00000130| 73 70 6c 61 79 20 2a 29 | 0d 20 20 20 20 20 42 65 |splay *)|.     Be|
|00000140| 67 69 6e 0d 20 20 20 20 | 20 57 72 69 74 65 28 5e |gin.    | Write(^|
|00000150| 5b 27 47 32 27 29 3b 0d | 45 6e 64 3b 0d 0d 50 72 |['G2');.|End;..Pr|
|00000160| 6f 63 65 64 75 72 65 20 | 52 56 53 3b 20 20 20 20 |ocedure |RVS;    |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 42 65 67 |        |  (* Beg|
|00000180| 69 6e 20 72 65 76 65 72 | 73 65 20 76 69 64 65 6f |in rever|se video|
|00000190| 20 2a 29 0d 20 20 20 20 | 20 42 65 67 69 6e 0d 20 | *).    | Begin. |
|000001a0| 20 20 20 20 57 72 69 74 | 65 28 5e 5b 27 47 34 27 |    Writ|e(^['G4'|
|000001b0| 29 3b 0d 45 6e 64 3b 0d | 0d 50 72 6f 63 65 64 75 |);.End;.|.Procedu|
|000001c0| 72 65 20 55 6e 64 65 72 | 3b 20 20 20 20 20 20 20 |re Under|;       |
|000001d0| 20 20 20 20 20 28 2a 20 | 42 65 67 69 6e 20 75 6e |     (* |Begin un|
|000001e0| 64 65 72 6c 69 6e 69 6e | 67 20 2a 29 0d 20 20 20 |derlinin|g *).   |
|000001f0| 20 20 42 65 67 69 6e 0d | 20 20 20 20 20 57 72 69 |  Begin.|     Wri|
|00000200| 74 65 28 5e 5b 27 47 33 | 27 29 3b 0d 45 6e 64 3b |te(^['G3|');.End;|
|00000210| 0d 0d 50 72 6f 63 65 64 | 75 72 65 20 41 6c 74 53 |..Proced|ure AltS|
|00000220| 65 74 3b 20 20 20 20 20 | 20 20 20 20 20 20 28 2a |et;     |      (*|
|00000230| 20 54 75 72 6e 20 6f 6e | 20 61 6c 74 65 72 6e 61 | Turn on| alterna|
|00000240| 74 65 20 5b 43 68 61 72 | 61 63 74 65 72 20 47 72 |te [Char|acter Gr|
|00000250| 61 70 68 69 63 73 5d 20 | 73 65 74 20 2a 29 0d 20 |aphics] |set *). |
|00000260| 20 20 20 20 42 65 67 69 | 6e 0d 20 20 20 20 20 57 |    Begi|n.     W|
|00000270| 72 69 74 65 28 5e 5b 27 | 47 31 27 29 3b 0d 45 6e |rite(^['|G1');.En|
|00000280| 64 3b 0d 0d 50 72 6f 63 | 65 64 75 72 65 20 53 63 |d;..Proc|edure Sc|
|00000290| 4f 66 66 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |Off;    |        |
|000002a0| 28 2a 20 54 75 72 6e 73 | 20 6f 66 66 20 61 6e 79 |(* Turns| off any|
|000002b0| 2f 61 6c 6c 20 6f 66 20 | 74 68 65 20 61 62 6f 76 |/all of |the abov|
|000002c0| 65 20 2a 29 0d 20 20 20 | 20 20 42 65 67 69 6e 0d |e *).   |  Begin.|
|000002d0| 20 20 20 20 20 57 72 69 | 74 65 28 5e 5b 27 47 30 |     Wri|te(^['G0|
|000002e0| 27 29 3b 0d 45 6e 64 3b | 0d 0d 28 2a 20 53 65 6e |');.End;|..(* Sen|
|000002f0| 64 20 73 69 6e 67 6c 65 | 20 63 68 61 72 61 63 74 |d single| charact|
|00000300| 65 72 20 69 6e 20 71 75 | 6f 74 65 73 20 74 6f 20 |er in qu|otes to |
|00000310| 43 43 6f 6c 6f 72 20 74 | 6f 20 63 68 61 6e 67 65 |CColor t|o change|
|00000320| 20 69 6e 6b 20 6f 72 20 | 62 61 63 6b 67 72 6f 75 | ink or |backgrou|
|00000330| 6e 64 20 2a 29 0d 0d 50 | 72 6f 63 65 64 75 72 65 |nd *)..P|rocedure|
|00000340| 20 43 43 6f 6c 6f 72 28 | 63 6f 6c 6f 72 3a 20 63 | CColor(|color: c|
|00000350| 68 61 72 29 3b 20 20 20 | 20 28 2a 20 53 65 74 20 |har);   | (* Set |
|00000360| 63 6f 6c 6f 72 73 20 2a | 29 0d 20 20 20 20 20 42 |colors *|).     B|
|00000370| 65 67 69 6e 0d 20 20 20 | 20 20 57 72 69 74 65 28 |egin.   |  Write(|
|00000380| 5e 5b 5e 5b 5e 5b 2b 63 | 6f 6c 6f 72 29 3b 0d 45 |^[^[^[+c|olor);.E|
|00000390| 6e 64 3b 0d 0d 28 2a 20 | 44 65 63 6f 64 69 6e 67 |nd;..(* |Decoding|
|000003a0| 20 74 61 62 6c 65 20 66 | 6f 72 20 63 6f 6c 6f 72 | table f|or color|
|000003b0| 20 63 6f 6e 74 72 6f 6c | 20 63 68 61 72 61 63 74 | control| charact|
|000003c0| 65 72 73 20 2e 2e 2e 20 | 73 61 6d 65 20 76 61 6c |ers ... |same val|
|000003d0| 75 65 73 20 77 6f 72 6b | 20 69 6e 20 43 50 2f 4d |ues work| in CP/M|
|000003e0| 0d 20 20 20 6d 6f 64 65 | 20 69 66 20 70 72 65 63 |.   mode| if prec|
|000003f0| 65 64 65 64 20 62 79 20 | 33 20 65 73 63 61 70 65 |eded by |3 escape|
|00000400| 73 2e 0d 0d 20 20 20 42 | 61 63 6b 67 72 6f 75 6e |s...   B|ackgroun|
|00000410| 64 20 20 20 20 20 20 20 | 20 20 20 20 43 68 61 72 |d       |    Char|
|00000420| 61 63 74 65 72 73 0d 0d | 20 20 20 20 20 20 20 30 |acters..|       0|
|00000430| 20 20 20 20 20 20 20 62 | 6c 61 63 6b 20 20 20 20 |       b|lack    |
|00000440| 20 20 20 20 50 0d 20 20 | 20 20 20 20 20 31 20 20 |    P.  |     1  |
|00000450| 20 20 20 20 20 77 68 69 | 74 65 20 20 20 20 20 20 |     whi|te      |
|00000460| 20 20 51 0d 20 20 20 20 | 20 20 20 32 20 20 20 20 |  Q.    |   2    |
|00000470| 20 20 20 20 72 65 64 20 | 20 20 20 20 20 20 09 00 |    red |      ..|
|00000480| 22 0d 20 20 20 20 20 20 | 20 33 20 20 20 20 20 20 |".      | 3      |
|00000490| 20 63 79 61 6e 20 20 20 | 20 20 20 20 20 20 23 0d | cyan   |      #.|
|000004a0| 20 20 20 20 20 20 20 34 | 20 20 20 20 20 20 70 75 |       4|      pu|
|000004b0| 72 70 6c 65 20 20 20 20 | 20 20 20 20 24 0d 20 20 |rple    |    $.  |
|000004c0| 20 20 20 20 20 35 20 20 | 20 20 20 20 67 72 65 65 |     5  |    gree|
|000004d0| 6e 20 20 20 20 20 20 20 | 20 20 25 0d 20 20 20 20 |n       |  %.    |
|000004e0| 20 20 20 36 20 20 20 20 | 20 20 20 62 6c 75 65 20 |   6    |   blue |
|000004f0| 20 20 20 20 20 20 20 20 | 26 0d 20 20 20 20 20 20 |        |&.      |
|00000500| 20 37 20 20 20 20 20 20 | 79 65 6c 6c 6f 77 20 20 | 7      |yellow  |
|00000510| 20 20 20 20 20 20 27 20 | 20 28 6d 75 73 74 20 73 |      ' | (must s|
|00000520| 65 6e 64 20 74 77 6f 20 | 6f 66 20 74 68 65 73 65 |end two |of these|
|00000530| 20 6c 69 6b 65 20 74 68 | 69 73 20 2d 3e 20 43 43 | like th|is -> CC|
|00000540| 6f 6c 6f 72 28 27 27 27 | 27 29 0d 20 20 20 20 20 |olor('''|').     |
|00000550| 20 20 38 20 20 20 20 20 | 64 6b 20 70 75 72 70 6c |  8     |dk purpl|
|00000560| 65 20 20 20 20 20 20 28 | 0d 20 20 20 20 20 20 20 |e      (|.       |
|00000570| 39 20 20 20 20 20 20 20 | 62 72 6f 77 6e 20 20 20 |9       |brown   |
|00000580| 20 20 20 20 20 29 0d 20 | 20 20 20 20 20 20 3a 20 |     ). |      : |
|00000590| 20 20 20 20 20 6c 74 20 | 72 65 64 20 20 20 20 20 |     lt |red     |
|000005a0| 20 20 20 2a 0d 20 20 20 | 20 20 20 20 3b 20 20 20 |   *.   |    ;   |
|000005b0| 20 20 20 64 6b 20 63 79 | 61 6e 20 20 20 20 20 20 |   dk cy|an      |
|000005c0| 20 2b 0d 20 20 20 20 20 | 20 20 3d 20 20 20 20 20 | +.     |  =     |
|000005d0| 6c 74 20 67 72 65 65 6e | 20 20 20 20 20 20 20 2d |lt green|       -|
|000005e0| 0d 20 20 20 20 20 20 20 | 3f 20 20 20 20 20 6d 65 |.       |?     me|
|000005f0| 64 20 67 72 61 79 20 20 | 20 20 20 20 20 5d 0d 20 |d gray  |     ]. |
|00000600| 20 20 20 20 20 20 3e 20 | 20 20 20 20 6d 65 64 20 |      > |    med |
|00000610| 62 6c 75 65 20 20 20 20 | 20 20 20 2e 0d 20 20 20 |blue    |   ..   |
|00000620| 20 20 20 20 3c 20 20 20 | 20 20 20 64 6b 20 67 72 |    <   |   dk gr|
|00000630| 61 79 20 20 20 20 20 20 | 20 2c 0d 20 20 20 20 20 |ay      | ,.     |
|00000640| 20 20 21 20 20 20 20 20 | 20 20 67 72 61 79 20 20 |  !     |  gray  |
|00000650| 20 20 20 20 20 20 20 2f | 0d 2a 29 0d 0d 42 65 67 |       /|.*)..Beg|
|00000660| 69 6e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |in      |        |
|00000670| 20 20 20 20 20 20 20 20 | 20 28 2a 20 54 65 09 00 |        | (* Te..|
|00000680| 69 6e 67 20 70 68 61 73 | 65 20 2a 29 0d 20 20 20 |ing phas|e *).   |
|00000690| 20 20 43 6c 72 73 63 72 | 3b 0d 20 20 20 20 20 42 |  Clrscr|;.     B|
|000006a0| 6c 69 6e 6b 3b 0d 20 20 | 20 20 20 57 72 69 74 65 |link;.  |   Write|
|000006b0| 6c 6e 28 27 54 68 69 73 | 20 69 73 20 61 20 74 65 |ln('This| is a te|
|000006c0| 73 74 20 6c 69 6e 65 20 | 2e 2e 2e 20 62 6c 69 6e |st line |... blin|
|000006d0| 6b 69 6e 67 27 29 3b 0d | 20 20 20 20 20 53 63 6f |king');.|     Sco|
|000006e0| 66 66 3b 0d 20 20 20 20 | 20 57 72 69 74 65 6c 6e |ff;.    | Writeln|
|000006f0| 3b 0d 20 20 20 20 20 52 | 56 53 3b 0d 20 20 20 20 |;.     R|VS;.    |
|00000700| 20 57 72 69 74 65 28 27 | 54 68 69 73 20 69 73 20 | Write('|This is |
|00000710| 61 20 74 65 73 74 20 6c | 69 6e 65 20 2e 2e 2e 20 |a test l|ine ... |
|00000720| 72 65 76 65 72 73 65 27 | 29 3b 0d 20 20 20 20 20 |reverse'|);.     |
|00000730| 53 63 6f 66 66 3b 0d 20 | 20 20 20 20 57 72 69 74 |Scoff;. |    Writ|
|00000740| 65 6c 6e 3b 0d 20 20 20 | 20 20 57 72 69 74 65 6c |eln;.   |  Writel|
|00000750| 6e 3b 0d 20 20 20 20 20 | 55 6e 64 65 72 3b 0d 20 |n;.     |Under;. |
|00000760| 20 20 20 20 57 72 69 74 | 65 28 27 54 68 69 73 20 |    Writ|e('This |
|00000770| 69 73 20 61 20 74 65 73 | 74 20 6c 69 6e 65 20 2e |is a tes|t line .|
|00000780| 2e 2e 20 75 6e 64 65 72 | 6c 69 6e 65 27 29 3b 0d |.. under|line');.|
|00000790| 20 20 20 20 20 53 63 6f | 66 66 3b 0d 20 20 20 20 |     Sco|ff;.    |
|000007a0| 20 57 72 69 74 65 6c 6e | 3b 0d 20 20 20 20 20 57 | Writeln|;.     W|
|000007b0| 72 69 74 65 6c 6e 3b 0d | 20 20 20 20 20 43 43 6f |riteln;.|     CCo|
|000007c0| 6c 6f 72 28 27 22 27 29 | 3b 0d 20 20 20 20 20 57 |lor('"')|;.     W|
|000007d0| 72 69 74 65 6c 6e 28 27 | 54 68 69 73 20 69 73 20 |riteln('|This is |
|000007e0| 61 20 74 65 73 74 20 6c | 69 6e 65 20 2e 2e 2e 20 |a test l|ine ... |
|000007f0| 72 65 64 20 63 68 61 72 | 61 63 74 65 72 73 27 29 |red char|acters')|
|00000800| 3b 0d 20 20 20 20 20 43 | 43 6f 6c 6f 72 28 27 23 |;.     C|Color('#|
|00000810| 27 29 3b 0d 20 20 20 20 | 20 57 72 69 74 65 6c 6e |');.    | Writeln|
|00000820| 3b 0d 20 20 20 20 20 41 | 6c 74 53 65 74 3b 0d 20 |;.     A|ltSet;. |
|00000830| 20 20 20 20 57 72 69 74 | 65 28 27 54 68 69 73 20 |    Writ|e('This |
|00000840| 69 73 20 61 20 74 65 73 | 74 20 6c 69 6e 65 20 20 |is a tes|t line  |
|00000850| 20 27 29 3b 0d 20 20 20 | 20 20 53 63 6f 66 66 3b | ');.   |  Scoff;|
|00000860| 0d 20 20 20 20 20 57 72 | 69 74 65 6c 6e 28 27 28 |.     Wr|iteln('(|
|00000870| 41 6c 74 65 72 6e 61 74 | 65 20 63 68 61 72 09 00 |Alternat|e char..|
|00000880| 74 65 72 20 73 65 74 29 | 27 29 3b 0d 20 20 20 20 |ter set)|');.    |
|00000890| 20 57 72 69 74 65 6c 6e | 3b 0d 20 20 20 20 20 43 | Writeln|;.     C|
|000008a0| 43 6f 6c 6f 72 28 27 25 | 27 29 3b 0d 20 20 20 20 |Color('%|');.    |
|000008b0| 20 57 72 69 74 65 6c 6e | 28 27 54 68 69 73 20 69 | Writeln|('This i|
|000008c0| 73 20 61 20 74 65 73 74 | 20 6c 69 6e 65 20 2e 2e |s a test| line ..|
|000008d0| 2e 20 67 72 65 65 6e 20 | 63 68 61 72 61 63 74 65 |. green |characte|
|000008e0| 72 73 27 29 3b 0d 20 20 | 20 20 20 43 43 6f 6c 6f |rs');.  |   CColo|
|000008f0| 72 28 27 23 27 29 3b 0d | 20 20 20 20 20 57 72 69 |r('#');.|     Wri|
|00000900| 74 65 6c 6e 3b 0d 20 20 | 20 20 20 43 43 6f 6c 6f |teln;.  |   CColo|
|00000910| 72 28 27 27 27 27 29 3b | 0d 20 20 20 20 20 57 72 |r('''');|.     Wr|
|00000920| 69 74 65 6c 6e 28 27 54 | 68 69 73 20 69 73 20 61 |iteln('T|his is a|
|00000930| 20 74 65 73 74 20 6c 69 | 6e 65 20 2e 2e 2e 20 79 | test li|ne ... y|
|00000940| 65 6c 6c 6f 77 20 63 68 | 61 72 61 63 74 65 72 73 |ellow ch|aracters|
|00000950| 27 29 3b 0d 20 20 20 20 | 20 43 43 6f 6c 6f 72 28 |');.    | CColor(|
|00000960| 27 23 27 29 3b 0d 20 20 | 20 20 20 57 72 69 74 65 |'#');.  |   Write|
|00000970| 6c 6e 3b 0d 20 20 20 20 | 20 57 72 69 74 65 6c 6e |ln;.    | Writeln|
|00000980| 28 27 53 63 72 65 65 6e | 20 77 69 6c 6c 20 63 68 |('Screen| will ch|
|00000990| 61 6e 67 65 20 74 6f 20 | 77 68 69 74 65 27 29 3b |ange to |white');|
|000009a0| 0d 20 20 20 20 20 44 65 | 6c 61 79 28 35 30 30 29 |.     De|lay(500)|
|000009b0| 3b 0d 20 20 20 20 20 43 | 43 6f 6c 6f 72 28 27 31 |;.     C|Color('1|
|000009c0| 27 29 3b 0d 20 20 20 20 | 20 44 65 6c 61 79 28 31 |');.    | Delay(1|
|000009d0| 30 30 30 29 3b 0d 20 20 | 20 20 20 57 72 69 74 65 |000);.  |   Write|
|000009e0| 6c 6e 3b 0d 20 20 20 20 | 20 57 72 69 74 65 6c 6e |ln;.    | Writeln|
|000009f0| 28 27 53 63 72 65 65 6e | 20 77 69 6c 6c 20 63 68 |('Screen| will ch|
|00000a00| 61 6e 67 65 20 74 6f 20 | 67 72 65 65 6e 27 29 3b |ange to |green');|
|00000a10| 0d 20 20 20 20 20 44 65 | 6c 61 79 28 35 30 30 29 |.     De|lay(500)|
|00000a20| 3b 0d 20 20 20 20 20 43 | 43 6f 6c 6f 72 28 27 35 |;.     C|Color('5|
|00000a30| 27 29 3b 0d 20 20 20 20 | 20 44 65 6c 61 79 28 31 |');.    | Delay(1|
|00000a40| 30 30 30 29 3b 0d 20 20 | 20 20 20 57 72 69 74 65 |000);.  |   Write|
|00000a50| 6c 6e 3b 0d 20 20 20 20 | 20 43 43 6f 6c 6f 72 28 |ln;.    | CColor(|
|00000a60| 27 22 27 29 3b 20 57 72 | 69 74 65 28 27 4d 75 6c |'"'); Wr|ite('Mul|
|00000a70| 74 69 63 6f 6c 6f 72 27 | 29 3b 20 43 43 6f 09 00 |ticolor'|); CCo..|
|00000a80| 72 28 27 27 27 27 29 3b | 20 57 72 69 74 65 28 27 |r('''');| Write('|
|00000a90| 20 74 65 78 74 27 29 3b | 20 43 43 6f 6c 6f 72 28 | text');| CColor(|
|00000aa0| 27 25 27 29 3b 0d 20 20 | 20 20 20 57 72 69 74 65 |'%');.  |   Write|
|00000ab0| 28 27 20 6c 69 6e 65 27 | 29 3b 20 43 43 6f 6c 6f |(' line'|); CColo|
|00000ac0| 72 28 27 51 27 29 3b 20 | 57 72 69 74 65 6c 6e 28 |r('Q'); |Writeln(|
|00000ad0| 27 20 64 65 6d 6f 6e 73 | 74 72 61 74 69 6f 6e 21 |' demons|tration!|
|00000ae0| 27 29 3b 0d 20 20 20 20 | 20 57 72 69 74 65 6c 6e |');.    | Writeln|
|00000af0| 3b 0d 20 20 20 20 20 55 | 6e 64 65 72 3b 20 57 72 |;.     U|nder; Wr|
|00000b00| 69 74 65 28 27 54 68 69 | 73 27 29 3b 20 53 63 4f |ite('Thi|s'); ScO|
|00000b10| 66 66 3b 20 57 72 69 74 | 65 28 27 20 69 73 20 61 |ff; Writ|e(' is a|
|00000b20| 27 29 3b 20 43 43 6f 6c | 6f 72 28 27 22 27 29 3b |'); CCol|or('"');|
|00000b30| 20 42 6c 69 6e 6b 3b 0d | 20 20 20 20 20 57 72 69 | Blink;.|     Wri|
|00000b40| 74 65 28 27 20 74 65 73 | 74 20 27 29 3b 20 53 63 |te(' tes|t '); Sc|
|00000b50| 4f 66 66 3b 20 43 43 6f | 6c 6f 72 28 27 51 27 29 |Off; CCo|lor('Q')|
|00000b60| 3b 20 52 56 53 3b 20 57 | 72 69 74 65 28 27 6c 69 |; RVS; W|rite('li|
|00000b70| 6e 65 27 29 3b 20 53 63 | 4f 66 66 3b 0d 20 20 20 |ne'); Sc|Off;.   |
|00000b80| 20 20 57 72 69 74 65 6c | 6e 3b 0d 20 20 20 20 20 |  Writel|n;.     |
|00000b90| 57 72 69 74 65 6c 6e 3b | 0d 20 20 20 20 20 57 72 |Writeln;|.     Wr|
|00000ba0| 69 74 65 28 27 45 4e 44 | 20 4f 46 20 54 45 53 54 |ite('END| OF TEST|
|00000bb0| 49 4e 47 20 50 52 4f 47 | 52 41 4d 27 29 3b 0d 45 |ING PROG|RAM');.E|
|00000bc0| 6e 64 2e 0d 0d 0d 0d 0d | 0d 1a 1a 1a 1a 1a 1a 1a |nd......|........|
|00000bd0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000be0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000bf0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000c00| 1a 1a 1a 1a             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+